home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-06
/
tpnova.zip
/
TOOLHDR.DOC
< prev
Wrap
Text File
|
1991-01-08
|
6KB
|
161 lines
unit NovTools;
interface
uses NovAPI,IPXLIB,DOS;
const
NONE = 0;
GENERAL_FAILURE = -1;
BAD_DRIVE_LETTER = -2;
INVALID_PATH = -3;
MAX_8_SERVERS = -4;
SERVER_NOT_ON_NETWORK = -5;
SERVER_MAX_CONNECTIONS = -6;
NO_FREE_DRIVES = -7;
OBJECT_NOT_FOUND = -8;
LOGIN_FAILURE = -9;
LOGIN_SCRIPT_FAILURE = -10;
NO_MORE_OBJECTS = -11;
NO_MORE_GROUPS = -12;
NO_MORE_USERS = -13;
NO_MORE_QUEUES = -14;
NO_MORE_PSERVERS = -15;
NO_MORE_FSERVERS = -16;
NO_MORE_QUSERS = -17;
NO_MORE_MEMBERS = -18;
UNABLE_TO_MODIFY_GROUP = -19;
SUNDAY = 0;
MONDAY = 1;
TUESDAY = 2;
WEDNESDAY = 3;
THURSDAY = 4;
FRIDAY = 5;
SATURDAY = 6;
type
string128 = string[128];
SearchWorkSpace = array[1..78] of byte;
ObjectSearchRecord = RECORD
Reserved : SearchWorkSpace;
Name : string47;
ObjectType : integer;
ObjectFullName : string128;
ID : longint;
Flags : byte;
Security : byte;
HasProperties : boolean;
NetworkAddress : InternetworkAddress;
end;
DateRec = RECORD
Year : 0..255;
Month : 1..12;
Day : 1..31;
end;
TimeRec = RECORD
Hour : 0..23;
Miniute : 0..59;
Second : 0..59;
end;
DateTimeRec = RECORD
Year : 0..255;
Month : 1..12;
Day : 1..31;
Hour : 0..23;
Minute : 0..59;
Second : 0..59;
end;
LoginTimeArray = array[1..42] of byte;
LoginControlRecord = RECORD
AccountExpirationDate : DateRec;
AccountDisabled : boolean;
PasswordExpirationDate : DateRec;
GraceLoginsRemaining : byte;
DaysBetweenPasswordChanges : integer;
MaxGraceLoginsAllowed : byte;
MinimumPasswordLength : byte;
unknown1 : byte;
MaxConcurrentConnections : byte;
LoginTimes : LoginTimeArray;
LastLoginTime : DateTimeRec;
PasswordControl : (USER_CHANGE_ANY, USER_NO_CHANGE_ANY,
USER_CHANGE_UNIQUE, USER_NO_CHANGE_UNIQUE);
unknown : array[1..6] of byte;
BadLoginCount : byte;
AccountResetTime : longint; (* minute number, since 1/1/85 *)
LastIntruderAddress : InternetworkAddress;
end;
FlagMethods = (ADD,REPLACE,REMOVE);
var
ToolResult : integer;
procedure FirstBinderyObject(SearchMask : string47;
var FoundObject : ObjectSearchRecord);
procedure NextBinderyObject(var FoundObject : ObjectSearchRecord);
procedure FirstUser(UserMask : string47;
var FoundObject : ObjectSearchRecord);
procedure NextUser(var FoundObject : ObjectSearchRecord);
procedure FirstGroup(GroupMask : string47;
var FoundObject : ObjectSearchRecord);
procedure NextGroup(var FoundObject : ObjectSearchRecord);
procedure FirstQueue(QueueMask : string47;
var FoundObject : ObjectSearchRecord);
procedure NextQueue(var FoundObject : ObjectSearchRecord);
procedure FirstPrintServer(PServerMask : string47;
var FoundObject : ObjectSearchRecord);
procedure NextPrintServer(var FoundObject : ObjectSearchRecord);
procedure FirstFileServer(FServerMask : string47;
var FoundObject : ObjectSearchRecord);
procedure NextFileServer(var FoundObject : ObjectSearchRecord);
procedure FirstGroupImIn(WhichObject : string47; WhatType : integer;
var FoundGroup : ObjectSearchRecord);
procedure NextGroupImIn(var FoundGroup : ObjectSearchRecord);
procedure FirstGroupMember(WhichGroup : string47;
var FoundMember : ObjectSearchRecord);
procedure NextGroupMember(var FoundMember : ObjectSearchRecord);
procedure FirstQueueUser(WhichQueue : string47;
var FoundUser : ObjectSearchRecord);
procedure NextQueueUser(var FoundUser : ObjectSearchRecord);
procedure FirstQueueOperator(WhichQueue : string47;
var FoundOperator : ObjectSearchRecord);
procedure NextQueueOperator(var FoundOperator : ObjectSearchRecord);
procedure FirstQueueServer(WhichQueue : string47;
var FoundServer : ObjectSearchRecord);
procedure NextQueueServer(var FoundServer : ObjectSearchRecord);
function Attach(ServerName : string; LoginDrive : char) : integer;
procedure AddMemberToGroup(WhichObject : string47; WhatType : integer;
WhichGroup : string47);
procedure DOSPathToNetworkPath(DOSPath : string; var ServerName,Volume,Path : string);
procedure Flag(AFile : string; ChangeMethod : FlagMethods; Attribs,ExAttribs : byte);
function FullName(WhichObject : string47; WhatType : integer) : string;
procedure GetObjectLoginControl(WhichObject : string47; WhatType : integer;
var LoginInfo : LoginControlRecord);
procedure Map(DriveLetter : char; NetworkPath : string);
procedure MapDel(DriveLetter : char);
procedure MapTemporary(TempNumber : integer; NetworkPath : string);
procedure NFSplit(NetPath : string; var ServerName,Volume,Path,Name,Extent : string);
function ObjectCanLoginAt(LoginInfo : LoginControlRecord;
Day,Hour,Minute : byte) : boolean;
procedure OpenLoginScript(ConnectionID : integer; var ScriptFile : TEXT);
function ObjectIDHexString(WhichObject : string47; WhatType : integer) : string;
procedure RemoveMemberFromGroup(WhichObject : string47; WhatType : integer;
WhichGroup : string47);
function ServerConnectionID(ServerName : string) : integer;
function VolumeName(NetDrive : char) : string;